score <- function(input) {
    return(c(9.700311953536998 + input[1] * -0.4128360473754751 + input[2] * 0.9680426131053453 + input[3] * -2.498310603183548 + input[4] * -1.0723230787022542, 2.1575759475871163 + input[1] * 0.5400806228605453 + input[2] * -0.3245383349519669 + input[3] * -0.2034493200950831 + input[4] * -0.9338183426196143, -11.857887901124615 + input[1] * -0.12724457548509432 + input[2] * -0.6435042781533917 + input[3] * 2.7017599232786216 + input[4] * 2.006141421321863))
}
